
fun (: 'recgen' [
  ( that -- throw .)
  that > 0 then [ recgen ( that ) ]
] )

fun (: 'recprint' ( iterator ) [
  that next delog then [ recprint ( that ) ]
] )

( recprint ( generator (: ( number ) [ recgen 10 ] ) each ) .)

